home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / System / MRAC / Lengths / Modify / l-syncope-section < prev    next >
Encoding:
Text File  |  1998-08-11  |  1.5 KB  |  49 lines  |  [TEXT/ScoM]
  1. l-syncope-section seed count divide length section pattern
  2.  
  3. This function is identical in operation to l-syncope except for the ability to handle syncope processing across sections or sublists within a list. 
  4.  
  5. (setq lengths (qlength '((8-210) (16-102) (8-1 12-110))))
  6. => ((1/4 1/8 -1/8) (1/16 -1/16 1/8) (1/8 1/12 1/12 -1/12))
  7.  
  8. (l-syncope-section .23 1 4 'min nil '(2) lengths)
  9. => ((1/4 1/8 -1/8)
  10.     (1/16 -1/16 1/8)
  11.     (1/8 1/48 1/16 1/12 -1/12))
  12.  
  13. (l-syncope-section .23 1 4 'min nil '(0 2) lengths)
  14. => ((1/4 1/32 3/32 -1/8)
  15.     (1/16 -1/16 1/8)
  16.     (1/8 1/16 1/48 1/12 -1/12))
  17.  
  18. (l-syncope-section .23 1 4 'min '1/12 '((0 2)) lengths)
  19. => ((1/4 1/32 3/32 -1/8)
  20.     (1/64 3/64 -1/16 1/8)
  21.     (1/32 3/32 1/12 1/12 -1/12))
  22.  
  23. (l-syncope-section nil '(1 2) 4 nil nil '((0 0) (2 2)) lengths)
  24. => ((1/4 3/32 1/32 -1/8)
  25.     (1/16 -1/16 1/8)
  26.     (3/32 1/32 1/48 1/16 1/12 -1/12))
  27. => ...
  28.  
  29. (l-syncope-section nil '(1 1) '(4 4) '(max min) nil '(0 2) lengths)
  30. => ((1/16 3/16 1/8 -1/8)
  31.     (1/16 -1/16 1/8)
  32.     (1/8 1/16 1/48 1/12 -1/12))
  33. => ...
  34.  
  35. (l-syncope-section .46 '(1 1) '(4 4) '(1/8 1/16) nil '(0 1) lengths)
  36. => ((1/4 3/32 1/32 -1/8)
  37.     (1/64 3/64 -1/16 1/8)
  38.     (1/8 1/12 1/12 -1/12))
  39.  
  40. (l-syncope-section nil '(1 1) '(4 4) '(max min) nil '(0 0) lengths)
  41. => ((3/16 1/64 3/64 1/8 -1/8)
  42.     (1/16 -1/16 1/8)
  43.     (1/8 1/12 1/12 -1/12))
  44.  
  45. (l-syncope-section nil '(1 1) '(4 4) '(max min) '1/16 '(0 0 2) lengths)
  46. => ((1/16 3/16 1/32 3/32 -1/8)
  47.     (1/16 -1/16 1/8)
  48.     (3/32 1/32 1/12 1/12 -1/12))
  49.